home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / rbbs_mpl.zip / ALIAS.STB < prev    next >
Text File  |  1992-06-28  |  2KB  |  47 lines
  1. ' $linesize:132
  2. ' $title: 'Alias stub for Maple street version of RBBS'
  3. '
  4. '
  5. '  This Alias STUB file removes ALIAS support from Maple version of RBBS
  6. '
  7. ' $SUBTITLE: 'AliasChk - Checks whether ALIAS exists'
  8. ' $PAGE
  9. '
  10. '  SUBROUTINE NAME    -- AliasChk
  11. '
  12. '  INPUT PARAMETERS   --     PARAMETER                    MEANING
  13. '                         WhoFind$                    ALIAS to find
  14. '
  15. '  OUTPUT PARAMETERS  --  WhoFound                    Whether ALIAS found
  16. '                         UserNumFound                Record # of User
  17. '
  18. '  SUBROUTINE PURPOSE --  Validate that ALIAS exists.  Get User Record
  19. '
  20. 2257 SUB AliasChk (WhoFind$,WhoFound,UserNumFound) STATIC         'Dgs-ALias
  21.  
  22.      END SUB                                                             '
  23. 59750' $SUBTITLE: 'AliasDgs - Subroutine to Create/Update Alias Info file'
  24. ' $PAGE
  25. '
  26. '  SUBROUTINE NAME    -- DgsAlias
  27. '
  28. '  INPUT PARAMETERS   --     PARAMETER                    MEANING
  29. '                         ZConfName$                  CONFERENCE NAME
  30. '                         ZOrigUserNameDgs$           USERS - LOG ON NAME
  31. '                         DgsAlias$                   USERS - ALIAS NAME
  32. '                         DgsStl$                     NULL FIRST TIME IN
  33. '                                                     'STILL' IF ALIAS EXISTS
  34. '                                                        OR REAL NAME
  35. '                         DgsFileName$                CONFERENCE ALIAS FILE
  36. '
  37. '  OUTPUT PARAMETERS  --  ZConfName$ ZOrigUserNameDgs$ DgsAlias$ DgsStl$
  38. '                         DgsFileName$
  39. '
  40. '  SUBROUTINE PURPOSE --  TO Read ConfA.DEF and Get Users ALIAS or
  41. '                         Create One
  42. '
  43.      SUB AliasDgs (ZConfName$,ZOrigUserNameDgs$,DgsAlias$,DgsStl$,DgsFileName$) STATIC
  44.      ConfADefFlag = 0
  45.      DgsAlias$ = "NO CONFA.DEF"
  46.      END SUB
  47.